home *** CD-ROM | disk | FTP | other *** search
/ Hyper Erect Magazine / Hyper Erect Magazine - Disc 2.iso / pc / menu.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1997-04-12  |  320 b   |  17 lines
  1. on mouseUp
  2.   global gvol
  3.   set tvol to gvol
  4.   set the visible of sprite (gvol + 10) to 0
  5.   set gvol to gvol + 1
  6.   if gvol >= 8 then
  7.     set gvol to 0
  8.   end if
  9.   set the soundLevel to gvol
  10.   if tvol = 0 then
  11.     puppetSound("MAIN")
  12.   end if
  13.   set the visible of sprite (gvol + 10) to 1
  14.   updateStage()
  15.   waittimer(1)
  16. end
  17.